10 REM COPYRIGHT 1988 COMPUTE PUBLICATIONS, INC. - ALL RIGHTS RESERVED
15 POKE 53281,15:POKE 53280,15:POKE 646,6
20 PRINT"[147]   COPYRIGHT 1988 COMPUTE! PUB., INC."
30 PRINTTAB(11)"ALL RIGHTS RESERVED":FORI=1TO1500:NEXT
40 FORI=1TO128:READA:X=X+A:NEXT:IFX<>1671982THENPRINT"DATA ERROR":STOP
50 RESTORE:PRINT"[147]":PRINTTAB(5)"PRESS + TO OPEN ZIPPER ONE WAY
60 [153]:[153][163]4)"PRESS - TO OPEN ZIPPER OTHER WAY
70 PRINT:PRINT:PRINT:PRINTTAB(12)"(-.7625 TO 4.25)"
80 PRINT:PRINT:PRINTTAB(9)"HOLD 1 TO HEAR VOICE 1
90 [153]:[153][163]9)"HOLD 2 TO HEAR VOICE 2
100 POKE650,128
110 F=1.2:G=.6:REM F IS RELATIVE PITCH FACTOR, G IS ABSOLUTE PITCH FACTOR
120 GOSUB310
130 V=54272:V1=54273:V2=54279:V3=54280:K=256
140 FORT=VTOV+23:POKET,0:NEXT
150 POKEV+24,15
160 POKEV+5,9:POKEV+6,16:POKEV+12,9:POKEV+13,16
170 POKEV+3,8:POKEV+10,8
180 FORQ=1TO64:READM,N:M=M*F*G:N=N/F*G
190 IFA$="1"THENM=0
200 IFA$="2"THENN=0
210 POKEV1,INT(M/K):POKEV,M-INT(M/K)*K
220 POKEV3,INT(N/K):POKEV2,N-INT(N/K)*K
230 POKEV+4,65:GOSUB330:POKEV+4,64
240 POKEV+11,65:GOSUB340:POKEV+11,64
250 GETA$:IFA$=""THEN300
260 IFA$="+"THENF=F*1.05:GOSUB310
270 IFA$="-"THENF=F*.95:GOSUB310
280 IFF>5THENF=5
290 IFF<.25THENF=.25
300 NEXT:RESTORE:GOTO180
310 POKE214,9:PRINT:POKE211,9
320 PRINT"DISTANCE APART = "F-1"[157]         ":RETURN
330 FORT=1TO50:NEXT:RETURN
340 FORT=1TO28:NEXT:RETURN
350 DATA14435,0,12860,17167,11457,17167,10814,11457,11457,11457,12860,12860
360 DATA11457,11457,8583,10814,7217,10814,7647,19269,8583,19269,9634,12860,8583
370 DATA12860,7217,14435,8583,12860,0,11457,11457,11457,12860,22915,14435,22915
380 DATA13625,21629,14435,21629,13625,20415,14435,20415,12860,19269,11457,19269
390 DATA12860,18188,14435,18188,12860,17167,12860,17167,12139,19269,12860,19269
400 DATA0,17167,14435,17167,12860,17167,11457,17167,10814,11457,11457,11457
410 DATA12860,12860,11457,11457,8583,10814,7217,10814,7647,19269,8583,19269
420 DATA9634,12860,8583,12860,7217,14435,8583,12860,0,11457,11457,11457,12860
430 DATA14435,14435,15294,17167,17167,0,19269,19269,21629,17167,22915,14435
440 DATA17167,11457,14435,12860,15294,14435,16203,0,17167,12860,19269,0,21629
450 DATA11457,22915,0,0